home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / FOR-1.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  260b  |  15 lines

  1. ' FOR-1.BAS
  2. ' This program demonstrates the FOR loop.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter a number between 2 and 5:  ", times%
  7. PRINT
  8.  
  9. FOR i% = 1 TO times%
  10.     PRINT "These lines will print"; times%; "times."
  11.     PRINT "This is time"; i%
  12.     PRINT
  13. NEXT i%
  14.  
  15.